125 N = N + 2 * (N = 0):W = W + 10 * (W = 0)
 126  IF  NOT W THEN W = 10
 127 VV$ = " " +  STR$ ( INT (V * 10 ^ N + .5)):Q =  LEN (VV$) - ( VAL (VV$) < 0):V$ = "": FOR X = 1 TO W - 3:V$ = V$ + " ": NEXT 
 128 V$ = V$ +  MID$ (VV$,1 + ( VAL (VV$) < 0),(Q <  = N) + (Q - N) * (Q > N) - 3 * (V >  = 1000)): IF V >  = 1000 THEN V$ = V$ + "," +  RIGHT$ ( STR$ ( INT (V - 1000 *  INT (V / 1000)) + 1000),3)
 129 V$ = V$ +  MID$ ("0.00",1 + ((N + 1) < Q),1 + (N - Q + 2) * (Q < N + 2)) +  RIGHT$ (VV$,N * (Q > N) + (Q - 1) * (Q <  = N)):V$ =  RIGHT$ (V$,W): RETURN